home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / MacTools / Screen Saver / card_2917.txt < prev    next >
Encoding:
Text File  |  1988-01-08  |  1.6 KB  |  54 lines
  1. -- card: 2917 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2636
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0004
  11. -- rect: left=31 top=13 right=322 bottom=497
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 10
  19. -- part name: 
  20.  
  21.  
  22. -- part contents for card part 1
  23. ----- text -----
  24. --SCREEN SAVER FUNCTION FOR MAC II'S
  25. --My screen idle function.  It is modeled after autoblack.  Three
  26. --settings.  If cursor is in lower right corner of the screen then
  27. --screen saver never comes on.
  28. --If it is in upper right corner then "Stars II" comes on immediately.
  29. --Otherwise, if system has been idle for more than 250sec then
  30. --"Stars II" comes on.
  31. --NOTE1:  you have to supply your own screen saver program and install
  32. --it as a DA.  Then just replace "Stars II" by whatever name yours
  33. --has on the apple-menu.
  34. --NOTE2:  this will work for other Mac's as well, but is the only
  35. --such "auto" saver I have found for a Mac II.
  36. --NOTE3:  to adjust time change the "15000" in line 7 up or down
  37. --according to your desires.  Remember 60 ticks = 1 sec.
  38. --Enjoy:  this is freeware.  Simply give me credit by leaving this
  39. --message in the script for your home stack.
  40. -- Wayne D. Gray, 6116 Lee Brooke Place; Springfield, VA  22152
  41.  
  42. on idle
  43.   global holdticks
  44.   if the mouseH > 500 and the mouseV > 340 then
  45.     pass idle
  46.   else if the mouseH > 500 and the mouseV < -15 then
  47.     doMenu "Stars II"
  48.   else if (the ticks-holdticks)> 15000 then
  49.     put the ticks into holdticks
  50.     doMenu "Stars II"
  51.   end if
  52.   pass idle
  53. end idle
  54.